home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 August / 64er_Magazin_95-08_1995_Markt__Technik_de_Side_B.d64 / balken demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  652b  |  37 lines
  1. 10 print"[147]":poke53280,0:poke53281,0
  2. 20 gosub 1000
  3. 30 gosub 1130
  4. 40 gosub 1180
  5. 50 print:print:print
  6. 100 end
  7. 1000 :  rem string-initialsierung
  8. 1010 b$(1)="[180]"
  9. 1020 b$(2)="[181]"
  10. 1030 b$(3)="[161]"
  11. 1040 b$(4)="[182]"
  12. 1050 b$(5)="[170]"
  13. 1060 b$(6)=" [146]"
  14. 1070 wa$="[152]                    "
  15. 1080 wt$="[152]  0%  working 100%  "+"[151] [146]"
  16. 1090 wb$="[152]                    "+"[151] [146]"
  17. 1100 wc$="[152]  [146]                  "+"[151] [146]"
  18. 1110 wd$=" [151]                    [146]"
  19. 1120 return
  20. 1130 :  rem window oeffnen
  21. 1140 printwa$:printwt$
  22. 1150 printwb$:printwc$
  23. 1160 printwb$:printwd$
  24. 1170 return
  25. 1180 :  rem balken darstellen
  26. 1190 print"";
  27. 1200 for x=0to 15
  28. 1210 : gosub 1240:print"";
  29. 1220 next
  30. 1230 return
  31. 1240 for y=1to6
  32. 1250 : printb$(y);+"[157]";:gosub1280
  33. 1260 next
  34. 1270 return
  35. 1280 :  rem pausenschleife
  36. 1290 for i=0to 10:next:return
  37.